home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_B.d64 / demo m&t 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  49 lines
  1. 1 rem laser - demo- und steuer-programm
  2. 2 rem von nikolaus heusler         8.91
  3. 3 rem zwengauerweg 18, 8000 muenchen 71
  4. 4 :
  5. 10 ifpeek(49155)<>3thenload"laser.code",8,8
  6. 20 sys49152
  7. 100 print"[147]laser - demo- und steuerprogramm
  8. 110 [153]"steuerung: (+) motor 1 schneller
  9. 112 print"           (-) motor 1 langsamer
  10. 114 [153]"           (1) motor 1 an/aus
  11. 120 print"           (>) motor 2 schneller
  12. 122 [153]"           (<) motor 2 langsamer
  13. 124 print"           (2) motor 2 an/aus
  14. 126 [153]"           (_) motor 2 vor/rueck
  15. 128 print"           ([) bremse hoch
  16. 129 [153]"           (]) bremse runter
  17. 130 print"werden die tasten mit (shift) betaetigt,
  18. 132 [153]"onso erfolgt die aenderung in groesseren
  19. 134 print"stufen.
  20. 136 [153]"tototototototototototototototototototototototototototototototototototototototo
  21. 190 m1=85:m2=168:br=60:s1=1:s2=1:r=1
  22. 200 print"motor 1: geschwindigkeit =  ";
  23. 202 ifs1=0thenprint"aus  ":goto210
  24. 204 printm1"[157]   "
  25. 210 print"motor 2: geschwindigkeit =";
  26. 212 ifs2=0thenprint"  aus  ":goto220
  27. 214 ifr=1thenprint" +";:goto216
  28. 215 print" -";
  29. 216 printm2"[157]   "
  30. 220 print"bremse:                  =  "br"[157]   "
  31. 230 poke6,br:poke2,s1:poke3,s2*r:poke4,m1:poke5,m2
  32. 300 geta$:poke198,.
  33. 310 ifa$="+"thenm1=m1+1:ifm1>255thenm1=255
  34. 312 ifa$="[219]"thenm1=m1+16:ifm1>255thenm1=255
  35. 314 ifa$="-"thenm1=m1-1:ifm1<10thenm1=10
  36. 316 ifa$="[221]"thenm1=m1-16:ifm1<10thenm1=10
  37. 320 ifa$="."thenm2=m2+1:ifm2>255thenm2=255
  38. 322 ifa$=">"thenm2=m2+16:ifm2>255thenm2=255
  39. 324 ifa$=","thenm2=m2-1:ifm2<10thenm2=10
  40. 326 ifa$="<"thenm2=m2-16:ifm2<10thenm2=10
  41. 330 ifa$="1"thens1=1-s1
  42. 332 ifa$="2"thens2=1-s2
  43. 334 ifa$="_"thenr=256-r
  44. 340 ifa$=":"thenbr=br+1:ifbr>255thenbr=255
  45. 342 ifa$="["thenbr=br+16:ifbr>255thenbr=255
  46. 344 ifa$=";"thenbr=br-1:ifbr<1thenbr=1
  47. 346 ifa$="]"thenbr=br-16:ifbr<1thenbr=1
  48. 390 goto200
  49.